From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 21 Apr 2007 21:58:59 +0000 (+0000)
Subject: (c-remove-any-local-eval-or-mode-variables): Use delete-region
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~697
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1968d70f90ed5bc31b5cf01aa062663b4e6516bb;p=emacs.git

(c-remove-any-local-eval-or-mode-variables): Use delete-region
instead of kill-line.
---

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index f5da0eecc2e..c3c17a6f3c5 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -820,7 +820,7 @@ compatible with old code; callers should always specify it."
 		      "$")
 	      nil t)
 	(beginning-of-line)
-	(kill-line 1)))
+	(delete-region (point) (progn (end-of-line) (point)))))
 
     ;; Delete the first line, if we've got one, in case it contains a mode spec.
     (unless (and lv-point
@@ -828,8 +828,7 @@ compatible with old code; callers should always specify it."
 			(forward-line 0)
 			(bobp)))
       (goto-char (point-min))
-      (unless (eobp)
-	(kill-line 1)))))
+      (delete-region (point) (progn (end-of-line) (point))))))
 
 (defun c-postprocess-file-styles ()
   "Function that post processes relevant file local variables in CC Mode.